home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1986 October
/
Ahoy_Magazine_86-10_1986_Double_L.d64
/
Functional Entry
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
383b
|
15 lines
0 poke53280,0:poke53281,6:poke646,1
1 print"[147]commodares problem #30-1"
2 print" functional entry":print
3 rem solution by
4 rem s. simonetti
5 rem
8 k1=842 : ct=208 :rem kbd buffer
9 if len(ds$)=0 then k1=631 : ct=198
10 print"define the function fna(x) = "
20 input a$
30 print"[147]50 def fna(x)="a$ : print"goto50"
40 poke k1,13:poke k1+1,13:poke ct,2:end
50 def fna(x)=gg=uoy/67*9999
100 for x=1 to 10 : print fna(x) : next